home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PACKAGES
/
RNEWSPOS.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
9KB
|
91 lines
;;; compiled by jwz@thalidomide on Thu Jan 14 00:58:33 1993
;;; from file /u/jwz/emacs19/lisp/packages/rnewspost.el
;;; emacs version 19.4.1 Lucid.
;;; bytecomp version 2.09; 29-dec-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!ê└┬!ç" [require sendmail rnews] 2)
(defvar news-reply-mode-map nil "\
Mode map used by news-reply.")
(byte-code "¼╤┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┬╧╨#ê┬╤╥#ê┬╙╘#ê┬╒╓#ê┬╫╪#ê┬┘┌#ê┬█┌#ê┴ç" [news-reply-mode-map make-keymap define-key "?" describe-mode "" news-reply-distribution "" news-reply-keywords "" news-reply-newsgroups "" news-reply-followup-to "" mail-subject "" news-reply-summary "" news-caesar-buffer-body "" news-reply-signature "" news-reply-yank-original "" mail-fill-yanked-message "" news-inews ""] 4)
(fset 'news-reply-mode #[nil "└┴!¼ä┬├!ê─ ê┼╞!ê╟╚ !ê╩!ê╬╨┼╥!ê┼╙!ê╘╓R╘╓R╫╪┘\"ç" [fboundp mail-setup load "sendmail" kill-all-local-variables make-local-variable mail-reply-buffer nil set-syntax-table text-mode-syntax-table use-local-map news-reply-mode-map text-mode-abbrev-table local-abbrev-table news-reply-mode major-mode "News" mode-name paragraph-separate paragraph-start "^" mail-header-separator "$\\|" run-hooks text-mode-hook news-reply-mode-hook] 4 "\
Major mode for editing news to be posted on USENET.
First-time posters are asked to please read the articles in newsgroup:
news.announce.newusers .
Like Text Mode but with these additional commands:
C-c C-s news-inews (post the message) C-c C-c news-inews
C-c C-f move to a header field (and create it if there isn't):
C-c C-f C-n move to Newsgroups: C-c C-f C-s move to Subj:
C-c C-f C-f move to Followup-To: C-c C-f C-k move to Keywords:
C-c C-f C-d move to Distribution: C-c C-f C-a move to Summary:
C-c C-y news-reply-yank-original (insert current message, in NEWS).
C-c C-q mail-fill-yanked-message (fill what was yanked).
C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)." nil])
(defvar news-reply-yank-from "Save From: field for news-reply-yank-original." "\
")
(defvar news-reply-yank-message-id "Save Message-Id: field for news-reply-yank-original." "\
")
(fset 'news-reply-yank-original #[(arg) "└┬!ê─ ê┼╞!)ç" [nil zmacs-regions mail-yank-original arg exchange-point-and-mark run-hooks news-reply-header-hook] 2 "\
Insert the message being replied to, if any (in postnews).
Puts point before the text and mark after.
Indents each nonblank line ARG spaces (default 3).
Just \\[universal-argument] as argument means don't indent
and don't delete any header fields." "P"])
(defvar news-reply-header-hook '(lambda nil (insert "In article " news-reply-yank-message-id " " news-reply-yank-from " writes:\n\n")) "\
Hook for inserting a header at the top of a yanked message.")
(fset 'news-reply-newsgroups #[nil "└ êebê┴┬!ç" [expand-abbrev mail-position-on-field "Newsgroups"] 2 "\
Move point to end of Newsgroups: field.
RFC 850 constrains the Newsgroups: field to be a comma separated list of valid
newsgroups names at your site:
Newsgroups: news.misc,comp.misc,rec.misc" nil])
(fset 'news-reply-followup-to #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "Followup-To" t "newsgroups" "\nFollowup-To: "] 3 "\
Move point to end of Followup-To: field. Create the field if none.
One usually requests followups to only one newsgroup.
RFC 850 constrains the Followup-To: field to be a comma separated list of valid
newsgroups names at your site, that are also in the Newsgroups: field:
Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
Followup-To: news.misc,comp.misc,rec.misc" nil])
(fset 'news-reply-distribution #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Distribution"] 2 "\
Move point to end of Distribution: optional field.
Create the field if none. Without this field the posting goes to all of
USENET. The field is used to restrict the posting to parts of USENET." nil])
(fset 'news-reply-keywords #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Keywords"] 2 "\
Move point to end of Keywords: optional field. Create the field if none.
Used as an aid to the news reader, it can contain a few, well selected keywords
identifying the message." nil])
(fset 'news-reply-summary #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Summary"] 2 "\
Move point to end of Summary: optional field. Create the field if none.
Used as an aid to the news reader, it can contain a succinct
summary (abstract) of the message." nil])
(fset 'news-reply-signature #[nil "└┴!ç" [message "~/.signature will be appended automatically."] 2 "\
The inews program appends ~/.signature automatically." nil])
(fset 'news-setup #[(to subject in-reply-to newsgroups replybuffer) "┬¼₧┬ë╟ ┬┬&ê╩yê╦╠!êdbê*¬î╟ ┬┬&êdbê═╧╨e═#)½Ü╩yê╤«ü╙╘▒ê¼å╒╠!ê¬âdbê╓╫!)ç" [replybuffer mail-reply-buffer nil mail-setup-hook to mail-archive-file-name mail-self-blind mail-setup subject in-reply-to 0 kill-line 1 t case-fold-search re-search-backward "^Subject:" "Newsgroups: " newsgroups "" "\n" backward-char run-hooks news-setup-hook] 7 "\
Setup the news reply or posting buffer with the proper headers and in
news-reply-mode."])
(fset 'news-inews #[nil "└└└èîebê─┼┼Q!êe`}ê╟╚!╟╔!)~êebê╩╦!êebê─┼┼Q!ê╠═!êdbêh╬U¼â╬cê╧╨!ê╤ed└╙└╘&ê╧╒!êebê─═!ê╠┼┼Q!ê╓└!ê)╫╪!¡é╪ +ç" [nil newsgroups subject case-fold-search search-forward "\n" mail-header-separator mail-fetch-field "newsgroups" "subject" run-hooks news-inews-hook replace-match "\n\n" 10 message "Posting to USENET..." call-process-region news-inews-program 0 "-h" "Posting to USENET... done" set-buffer-modified-p fboundp bury-buffer] 8 "\
Send a news message using inews." nil])
(defvar news-reply-subject-prefix nil "\
*The prefix to use when replying to a news message (such as \"Re:\").")
(fset 'news-mail-reply #[nil "└ëëëëëëëëp \nî~êeebê╦╠!ê`═Z}ê╬╧!\n╬╨!╬╤!╬╥!╬╙!╬╘!½Ö½ò╓╫╪!┘Q\"¼ê┌Q\n█▄!êp▌└½â¬é╓▐\n\"ë½ê\nαO¬é\nßQ)└ &¡¥è\nqêΓπ!ê½âcê½å½â┌cê¡éc).ç" [nil buffer b message-id references reply-to to date subject cc from search-forward "\n\n" 1 mail-fetch-field "from" "subject" "reply-to" "date" "references" "message-id" news-reply-subject-prefix string-match "^[ ]*" regexp-quote "[ )t]*" " " pop-to-buffer "*mail*" mail " *at \\| *@ \\| *(\\| *<" stop-pos 0 "'s message of " mail-position-on-field "References"] 11 "\
Mail a reply to the author of the current article.
While composing the reply, use \\[news-reply-yank-original] to yank the
original message into it." nil])
(fset 'news-reply #[nil "└┴!â\n┬ëëëëëëëëëëp \nî╧╨ U¼û╥ܽÉ╙ êeebê╘╒!ê`╓Z}ê╫╪!ë╫┌!╫█!╫▄!ë «â╫▌!╫▐!╫▀!╫α!ë!Γπ!êΣ êσ ¡ä└µ!??àτ ê½¥ΦΘ\"½ÉΦΘ\"½ëΩ┬O¬pδP½¢Φ∞\"ë-½ê╧-O¬éεQ)∩┬%ê ½ç≡ ê cê½ç±≥!êcê±≤!ê½äcê½å½â⌠cê½âcêdb.ç⌡÷!ç" [y-or-n-p "Are you sure you want to followup to all of USENET? " nil buffer message-id distribution references message-of newsgroups followup-to to date subject cc from 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "subject" "date" "followup-to" "newsgroups" "references" "distribution" "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer string-match "\\`Re: " 4 "Re: " " *at \\| *@ \\| *(\\| *<" stop-pos "'s message of " news-setup news-reply-followup-to mail-position-on-field "Distribution" "References" " " message ""] 13 "\
Compose and post a reply (aka a followup) to the current article on USENET.
While composing the followup, use \\[news-reply-yank-original] to yank the
original message into it." nil])
(fset 'news-post-news #[nil "└┴!½╟pî├─ U¼ò╞ܽÉ╟ êeebê╚╔!ê`╩Z}ê╦╠!╦╬!)╨╤!ê╥ ê╙ ¡ä└╘!??¡è╒ ê╓╫ëëë\n%)ç╪┘!ç" [y-or-n-p "Are you sure you want to post to all of USENET? " buffer 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer news-setup nil message ""] 6 "\
Begin editing a new USENET news article to be posted.
Type \\[describe-mode] once editing the article to get a list of commands." nil])
(fset 'news-mail-other-window #[nil "└┴ëëëëp&ç" [mail-other-window nil] 7 "\
Send mail in another window.
While composing the message, use \\[news-reply-yank-original] to yank the
original message into it." nil])